home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr05 / mswlogo3.zip / MSWLOGO.ZIP / EXAMPLES.ZIP / ECHO.MCI < prev    next >
Text File  |  1993-04-11  |  823b  |  34 lines
  1. ;
  2. ; Function:
  3. ;
  4. ; This routine will record and play your voice back.
  5. ; The :arg is the number of seconds you want to record your voice for.
  6. ; Watch for messages for when to start and stop speaking.
  7. ; It will automatically play back what was recorded.
  8. ;
  9. ; To run:
  10. ;
  11. ; load "echo.mci
  12. ; Call ECHO
  13. ;
  14. ; System requirements:
  15. ;
  16. ; You must have Windows 3.1 (or 3.0 with Multi-Media Extentions)
  17. ; You must have the correct driver loaded in Windows for your sound card.
  18. ; You must have a sound card with a microphone input.
  19. ; You must have a microphone.
  20. ;
  21. to echo :arg
  22. print mci sentence [open new type waveaudio alias wa buffer] :arg
  23. mci [record wa]
  24. print "Recording...
  25. wait :arg*60
  26. print "Stopped...
  27. mci [seek wa to start]
  28. print "Playing...
  29. mci [play wa wait]
  30. print "Stopped...
  31. mci [close wa]
  32. end
  33.  
  34.